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--File: NovaOps.mesa 

--Last edited by Sandman on March 21, 1978 3:26 PM 

DIRECTORY 

Mopcodes: FROM "mopcodes", 
AUoFileDefs: FROM "altof il edef s" ; 

DEFINITIONS FROM 
Mopcodes, 
AUoFileDefs; 

NovaOps: DEFINITIONS - 
BEGIN 

-- in the definitions below, Finish/Abort must be 0/1 
NovaOpcode: TYPE » {Finish, Abort, OutLd, InLd, Punt, JSR}; 
CleanupReason: TYPE « 

{Finish, Abort, OutLd, InLd, Save, Restore, Checkpoint, Restart, Continue}; 

Stop: PROCEDURE [code: NovaOpcode] « MACHINE CODE BEGIN zSTOP END; 

Finish: NovaOpcode « 0; 
-- Abort: NovaOpcode » 1; 
-- Punt: NovaOpcode « 4; 

NovaOutLd: PROCEDURE [code: NovaOpcode, file: POINTER TO CFP, message: POINTER] 

RETURNS [[0..2]] - MACHINE CODE BEGIN zSTOP END; 
-- OutLd: NovaOpcode « 2; 

-- return 0-> normal return; 1«> just InLd'ed; 2=> just booted 

NovalnLd: PROCEDURE [code: NovaOpcode, file: POINTER TO CFP, message: POINTER] 
= MACHINE CODE BEGIN zSTOP END; 
InLd: NovaOpcode » 3; 

NovaJSR: PROCEDURE [code: NovaOpcode, address: POINTER, arg: UNSPECIFIED] 

RETURNS [UNSPECIFIED] = MACHINE CODE BEGIN zSTOP END; 
-- JSR: NovaOpcode = 5; 

END... 


